1 REM STAR DEMO
10 PI=2*(null)
20 INPUT"[147] POINTS WANTED (O TO END)";PW
21 IF PW=0THEN END
22 INPUT"SKIP";SK
23 INPUT"RADIUS <100 ";R
30 P=PI/PW
50 STOPBMGR1:STOPCB2K4:STOPFBMS0:STOPFSCR1
60 X=160:Y=100-R:TL=0
70 FORJ=1TOPW
80 TH=TL+SK
90 TL=TH:TH=TH*P-(PI/4)
100 X2=COS(TH)*R+160
110 Y2=SIN(TH)*R+100
120 STOPDRAWX,Y,X2,Y2
130 X=INT(X2):Y=INT(Y2):NEXT
140 GETA$:IFA$=""THEN140
150 STOPBMGR0:STOPCB2K2:PRINT"[147]":GOTO20